home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / misc / emu / Apex-src.lha / CONFIG.XPL < prev    next >
Text File  |  2001-09-30  |  1KB  |  57 lines
  1. \CONFIG.XPL    APR-10-87
  2. \Program to show which units and devices are installed.
  3.  
  4. \REVISION HISTORY:
  5. \FEB-28-87, Original
  6. \APR-10-87, Changed string conventions.
  7.  
  8. code    CRLF=9,        INTOUT=11,    TEXT=12,    HEXOUT=27,
  9.     DEVINFO=122,    UNTINFO=123;
  10.  
  11. int    UNIT, DEV, INFO;
  12.  
  13.  
  14.  
  15. begin    \MAIN
  16. TEXT(0,"-- CONFIGURATION, V1.0x2 --
  17.  
  18. -------------------------------- UNITS --------------------------------
  19. ");
  20. for UNIT:= 0,7 do
  21.     begin
  22.     INTOUT(0,UNIT);
  23.     TEXT(0,":  $");
  24.     INFO:= UNTINFO(UNIT);
  25.     HEXOUT(0,INFO(0));
  26.     TEXT(0,"-$");
  27.     HEXOUT(0,INFO(1));
  28.     TEXT(0,"  ");
  29.     TEXT(0,INFO(2));
  30.     CRLF(0);
  31.     end;
  32.  
  33. TEXT(0,"
  34. ------------------------------- DEVICES --------------------------------
  35. ");
  36. for DEV:= 0,7 do
  37.     begin
  38.     INTOUT(0,DEV);
  39.     TEXT(0,":  $");
  40.     INFO:= DEVINFO(DEV);
  41.     HEXOUT(0,INFO(0));
  42.     TEXT(0,"-$");
  43.     HEXOUT(0,INFO(1));
  44.     TEXT(0,"  ");
  45.     TEXT(0,INFO(2));
  46.     CRLF(0);
  47.     end;
  48. end;    \MAIN
  49. );
  50.     HEXOUT(0,INFO(0));
  51.     TEXT(0,"-$");
  52.     HEXOUT(0,INFO(1));
  53.     TEXT(0,"  ");
  54.     TEXT(0,INFO(2));
  55.     CRLF(0);
  56.     end;
  57. end;    \MAIN